home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1469 / demo.frm (.txt) < prev    next >
Visual Basic Form  |  1996-07-28  |  4KB  |  130 lines
  1. VERSION 4.00
  2. Begin VB.Form frmDemo 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VBMax Electronic Message Demo"
  5.    ClientHeight    =   870
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7980
  9.    Height          =   1275
  10.    Icon            =   "Demo.frx":0000
  11.    Left            =   0
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   870
  16.    ScaleWidth      =   7980
  17.    Top             =   0
  18.    Width           =   8100
  19.    Begin VB.CommandButton cmdOptions 
  20.       Caption         =   "Options"
  21.       Height          =   315
  22.       Left            =   30
  23.       TabIndex        =   1
  24.       Top             =   540
  25.       Width           =   1095
  26.    End
  27.    Begin VB.CommandButton cmdHeadlines 
  28.       Caption         =   "Headlines"
  29.       Height          =   315
  30.       Left            =   4590
  31.       TabIndex        =   5
  32.       Top             =   540
  33.       Width           =   1095
  34.    End
  35.    Begin VB.CommandButton cmdCallbacks 
  36.       Caption         =   "Callbacks"
  37.       Height          =   315
  38.       Left            =   2310
  39.       TabIndex        =   3
  40.       Top             =   540
  41.       Width           =   1095
  42.    End
  43.    Begin VB.CommandButton cmdEffects 
  44.       Caption         =   "Effects"
  45.       Height          =   315
  46.       Left            =   1170
  47.       TabIndex        =   2
  48.       Top             =   540
  49.       Width           =   1095
  50.    End
  51.    Begin VB.CommandButton cmdArrays 
  52.       Caption         =   "Arrays"
  53.       Height          =   315
  54.       Left            =   3450
  55.       TabIndex        =   4
  56.       Top             =   540
  57.       Width           =   1095
  58.    End
  59.    Begin VB.CommandButton cmdAbout 
  60.       Caption         =   "&About"
  61.       Height          =   315
  62.       Left            =   5730
  63.       TabIndex        =   6
  64.       Top             =   540
  65.       Width           =   1095
  66.    End
  67.    Begin VB.PictureBox picDisplay 
  68.       Height          =   450
  69.       Left            =   30
  70.       ScaleHeight     =   390
  71.       ScaleWidth      =   7860
  72.       TabIndex        =   0
  73.       Top             =   30
  74.       Width           =   7920
  75.    End
  76.    Begin VB.CommandButton cmdExit 
  77.       Cancel          =   -1  'True
  78.       Caption         =   "E&xit"
  79.       Height          =   315
  80.       Left            =   6870
  81.       TabIndex        =   7
  82.       Top             =   540
  83.       Width           =   1095
  84.    End
  85. Attribute VB_Name = "frmDemo"
  86. Attribute VB_Creatable = False
  87. Attribute VB_Exposed = False
  88. Option Explicit
  89. Dim moEDisp As New CElectronicDisplay
  90. Private Sub Form_Load()
  91.     Move 0, 0
  92.     With moEDisp
  93.         Set .Container = picDisplay
  94.         .ForeColor = vbYellow
  95.         .Effect = gnEFFECT_SLIDE_FROM_TOP_CENTER
  96.         .Caption = "VBMax Electronic Message"
  97.     End With
  98. End Sub
  99. Private Sub Form_Unload(Cancel As Integer)
  100. Dim i As Integer
  101.     moEDisp.Shutdown
  102.     Set moEDisp = Nothing
  103.     Set frmDemo = Nothing
  104.     For i = Forms.Count - 1 To 0 Step -1
  105.         Unload Forms(i)
  106.     Next i
  107.     End
  108. End Sub
  109. Private Sub cmdExit_Click()
  110.     Unload Me
  111. End Sub
  112. Private Sub cmdOptions_Click()
  113.     frmOptions.Show
  114. End Sub
  115. Private Sub cmdEffects_Click()
  116.     frmEffects.Show
  117. End Sub
  118. Private Sub cmdCallbacks_Click()
  119.     frmCallbacks.Show
  120. End Sub
  121. Private Sub cmdArrays_Click()
  122.     frmArray.Show
  123. End Sub
  124. Private Sub cmdHeadlines_Click()
  125.     frmNews.Show
  126. End Sub
  127. Private Sub cmdAbout_Click()
  128.     frmAbout.Show vbModal
  129. End Sub
  130.